home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 26.zip / BS1 part 26 / Icon Paint 1.0 BS1.adf / S / Move16 next >
Text File  |  1989-01-22  |  2KB  |  95 lines
  1. ECHO ""
  2. ECHO "You must have a disk called `NewDisk' to copy the files to."
  3. ECHO ""
  4. WAIT 5
  5. ECHO "Beginning transfer of files to RAM Disk....."
  6.  
  7. COPY "ICON PAINT:c/COPY" to RAM: QUIET
  8.  
  9. ASSIGN C: RAM:
  10.  
  11. COPY "ICON PAINT:c/ECHO" to RAM: QUIET
  12. COPY "ICON PAINT:c/MAKEDIR" to RAM: QUIET
  13. COPY "ICON PAINT:c/DELETE" to RAM: QUIET
  14. COPY "ICON PAINT:c/ASSIGN" to RAM: QUIET
  15. COPY "ICON PAINT:c/IF" to RAM: QUIET
  16. COPY "ICON PAINT:c/ENDIF" to RAM: QUIET
  17. COPY "ICON PAINT:c/ELSE" to RAM: QUIET
  18.  
  19. IF EXISTS RAM:IP
  20.  
  21. ELSE
  22.  
  23.     MAKEDIR RAM:IP
  24.  
  25. ENDIF
  26.  
  27. COPY "ICON PAINT:c/c2" to RAM:IP QUIET
  28. COPY "ICON PAINT:c/c4" to RAM:IP QUIET
  29. COPY "ICON PAINT:c/c8" to RAM:IP QUIET
  30. COPY "ICON PAINT:c/c16" to RAM:IP QUIET
  31. COPY "ICON PAINT:c/setcol" to RAM:IP QUIET
  32. COPY "ICON PAINT:c/getcol" to RAM:IP QUIET
  33. COPY "ICON PAINT:c/newwb" to RAM:IP QUIET
  34. COPY "ICON PAINT:c/killwb" to RAM:IP QUIET
  35. COPY "ICON PAINT:DEVS/colourmap16" to RAM: QUIET
  36. COPY "ICON PAINT:TRASHCAN.INFO" TO RAM: QUIET
  37.  
  38. ECHO ""
  39. ECHO "Please insert volume `NewDisk' at the prompt..."
  40.  
  41. IF EXISTS NEWDISK:C
  42.  
  43.     ECHO ""
  44.     ECHO "Transfering files onto `NewDisk'....."
  45.     COPY RAM:ip/#? to Newdisk:c QUIET
  46.  
  47. ELSE
  48.  
  49.     ECHO ""
  50.     ECHO "Transfering files onto `NewDisk'....."
  51.     MAKEDIR NEWDISK:c
  52.     COPY RAM:ip/#? to Newdisk:c QUIET
  53.  
  54. ENDIF
  55.  
  56. IF EXISTS Newdisk:devs
  57.  
  58.     COPY RAM:colourmap16 to NEWDISK:devs/ QUIET
  59.  
  60. ELSE
  61.  
  62.     MAKEDIR Newdisk:devs
  63.     COPY RAM:colourmap16 to NEWDISK:devs/ QUIET
  64.  
  65. ENDIF
  66.  
  67. IF EXISTS NewDisk:Trashcan
  68.  
  69.    COPY RAM:TRASHCAN.INFO to NEWDISK: QUIET
  70.  
  71. ELSE
  72.  
  73.    MAKEDIR TRASHCAN
  74.    COPY RAM:TRASHCAN.INFO TO NewDisk: QUIET
  75.  
  76. ENDIF
  77.  
  78. ECHO ""
  79. ECHO "Transfer complete. Giving Control back to ICON PAINT...."
  80.  
  81. DELETE RAM:IP/#? QUIET
  82.  
  83. DELETE RAM:#? QUIET
  84.  
  85. "ICON PAINT:C/ASSIGN" C: "ICON PAINT:c"
  86.  
  87. WAIT 2
  88.  
  89. COPY "ICON PAINT:s/RAMDisk.info" to RAM:Disk.info QUIET
  90.  
  91. ECHO ""
  92. ECHO "All finished."
  93.  
  94. WAIT 2
  95.